home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Text / OzTeX 1.9 / TeX-inputs / Tools / xr.sty < prev    next >
Encoding:
Text File  |  1995-01-24  |  1.5 KB  |  57 lines  |  [TEXT/MPS ]
  1. %% 
  2. %% This is file `xr.sty', generated 
  3. %% on <1995/1/24> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% xr.dtx  (with options: `package')
  8. %% 
  9. %% IMPORTANT NOTICE: 
  10. %% This file is part of the `tools' bundle 
  11. %% in the LaTeX2e distribution. 
  12. %% 
  13. %% You are not allowed to distribute this file. 
  14. %% For distribution of the original source see 
  15. %% the copyright notice in the source file, and 
  16. %% in the file readme.txt distributed with the 
  17. %% tools bundle. 
  18. %% 
  19. %% File: xr.dtx Copyright (C) 1993-1994 David Carlisle
  20. \NeedsTeXFormat{LaTeX2e}
  21. \ProvidesPackage{xr}
  22.          [1994/05/28 v5.02 eXternal References (DPC)]
  23. \def\externaldocument{\@ifnextchar[\XR@{\XR@[]}}
  24. \def\XR@[#1]#2{{%
  25.   \makeatletter
  26.   \def\XR@prefix{#1}%
  27.   \XR@next#2.aux\relax\\}}
  28. \def\XR@next#1\relax#2\\{%
  29.   \edef\XR@list{#2}%
  30.   \XR@loop{#1}}
  31. \def\XR@aux{%
  32.   \ifx\XR@list\@empty\else\expandafter\XR@explist\fi}
  33.  
  34. \def\XR@explist{\expandafter\XR@next\XR@list\\}
  35. \def\XR@loop#1{\openin\@inputcheck#1\relax
  36.   \ifeof\@inputcheck
  37.     \PackageWarning{xr}{^^JNo file #1^^JLABELS NOT IMPORTED.^^J}%
  38.     \expandafter\XR@aux
  39.   \else
  40.     \PackageInfo{xr}{IMPORTING LABELS FROM #1}%
  41.     \expandafter\XR@read\fi}
  42. \def\XR@read{%
  43.   \read\@inputcheck to\XR@line
  44.   \expandafter\XR@test\XR@line...\XR@}
  45. \long\def\XR@test#1#2#3#4\XR@{%
  46.   \ifx#1\newlabel
  47.     \newlabel{\XR@prefix#2}{#3}%
  48.   \else\ifx#1\@input
  49.      \edef\XR@list{\XR@list#2\relax}%
  50.   \fi\fi
  51.   \ifeof\@inputcheck\expandafter\XR@aux
  52.   \else\expandafter\XR@read\fi}
  53.  
  54. \endinput
  55. %% 
  56. %% End of file `xr.sty'.
  57.